<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% cod = request("id") SQLRS = "select * from noticias where codigo = "&cod&";" SET RS = conexao.execute(sqlrs) %>

<%=RS("data")%>

<%response.Write(RS("nome"))%>

<%=Replace(RS("texto"),chr(13),"
") %>

<< voltar